﻿Public Class frmDetailsVariable

    Private strNomVar As String
    Private strTypeVar As String
    Private strLongueurVar As String
    Private intNbValeur As Integer
    Private valeurs As DataTable

    Public Sub New(ByVal strNomVar As String, ByVal strTypeVar As String, _
                   ByVal strLongueurVar As String, ByRef valeurs As DataTable)

        ' Cet appel est requis par le Concepteur Windows Form.
        InitializeComponent()

        ' Ajoutez une initialisation quelconque après l'appel InitializeComponent().
        Me.strNomVar = strNomVar
        Me.strTypeVar = strTypeVar
        Me.strLongueurVar = strLongueurVar
        Me.valeurs = valeurs

        lbl_TypeVar.Text = strTypeVar
        lbl_NomVar.Text = strNomVar

        dgv_ValeursDistinctes.DataSource = valeurs
        lbl_NbValeurs.Text = valeurs.Rows.Count

    End Sub

End Class